home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / lib / perl5 / DateTime / Helpers.pm < prev    next >
Encoding:
Perl POD Document  |  2010-07-30  |  422 b   |  28 lines

  1. package DateTime::Helpers;
  2. BEGIN {
  3.   $DateTime::Helpers::VERSION = '0.61';
  4. }
  5.  
  6. use strict;
  7. use warnings;
  8.  
  9. use Scalar::Util ();
  10.  
  11. sub can {
  12.     my $object = shift;
  13.     my $method = shift;
  14.  
  15.     return unless Scalar::Util::blessed($object);
  16.     return $object->can($method);
  17. }
  18.  
  19. sub isa {
  20.     my $object = shift;
  21.     my $method = shift;
  22.  
  23.     return unless Scalar::Util::blessed($object);
  24.     return $object->isa($method);
  25. }
  26.  
  27. 1;
  28.